home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / klipdial.arc / DIALTEST.PRG < prev    next >
Text File  |  1989-04-24  |  550b  |  25 lines
  1.  
  2.  
  3.    m_PHONE = SPACE(10)
  4.    CLEAR
  5.    @ 10, 25 SAY "Enter Phone No. " GET m_phone PICTURE "@R (999) 999-9999"
  6.    READ
  7.    prefix = "DT"
  8.    cmd = "1" + prefix + m_phone  && Long Distance
  9.    @ 12, 25 SAY "Dialing - Please wait..."
  10.    Errcode = DIALIT(cmd)
  11.  
  12.    prompt1 = "Return Code = " + ltrim(str(errcode))
  13.    @ 14, 25 SAY prompt1
  14.    @ 23, 25 SAY "Press any key to hang up..."
  15.    inkey(0)
  16.    cmd = "H"
  17.    Errcode = DIALIT(cmd)
  18. *    CALL DIALIT with cmd      && See DOC file!
  19.    CLEAR
  20.    @ 12, 35 SAY "All Done..."
  21.  
  22.    return
  23.  
  24.  
  25.